From e51a5063797b7fd062f40c8e39483c0376b3eb66 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 23 Jun 2006 13:33:08 +0000 Subject: [PATCH] (rcirc-default-user-full-name): Default to `rcirc-default-user-name' instead of `rcirc-user-name' (which no longer exists). (rcirc-process-list): Check `buffer-live-p' before attempting to switch to a buffer. --- lisp/net/rcirc.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 683d7c6f3c1..1f051ffa9f2 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -74,7 +74,7 @@ :group 'rcirc) (defcustom rcirc-default-user-full-name (if (string= (user-full-name) "") - rcirc-user-name + rcirc-default-user-name (user-full-name)) "The full name sent to the server when connecting." :type 'string @@ -469,7 +469,7 @@ Functions are called with PROCESS and SENTINEL arguments.") "Return a list of rcirc processes." (let (ps) (mapc (lambda (p) - (when (process-buffer p) + (when (buffer-live-p (process-buffer p)) (with-rcirc-process-buffer p (when (eq major-mode 'rcirc-mode) (setq ps (cons p ps)))))) -- 2.30.2